home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2002 November / SGI IRIX Base Documentation 2002 November.iso / usr / share / catman / p_man / cat3 / f90 / rrspacing.z / rrspacing
Encoding:
Text File  |  2002-10-03  |  2.6 KB  |  82 lines
  1. RRSPACING(3I)                                         Last changed: 4-13-99
  2.  
  3.  
  4. NNAAMMEE
  5.      RRRRSSPPAACCIINNGG - Returns the reciprocal of the relative spacing of numeric
  6.      model numbers near the argument value
  7.  
  8. SSYYNNOOPPSSIISS
  9.      RRRRSSPPAACCIINNGG (([XX==]_x))
  10.  
  11. IIMMPPLLEEMMEENNTTAATTIIOONN
  12.      UNICOS, UNICOS/mk, IRIX systems
  13.  
  14.      CF90, MIPSpro 7 Fortran 90
  15.  
  16. SSTTAANNDDAARRDDSS
  17.      Fortran
  18.  
  19. DDEESSCCRRIIPPTTIIOONN
  20.      The RRRRSSPPAACCIINNGG intrinsic function returns the reciprocal of the
  21.      relative spacing of the numeric real model numbers near the argument
  22.      value.  For more information on the real number model, see the
  23.      MMOODDEELLSS(3I) man page.  It accepts the following argument:
  24.  
  25.      _x         Must be of type real.
  26.  
  27.      RRRRSSPPAACCIINNGG is an elemental function.  The name of this intrinsic cannot
  28.      be passed as an argument.
  29.  
  30. NNOOTTEESS
  31.      This routine is implemented on CRAY T90 systems that support IEEE
  32.      arithmetic by calls to scalar-only library routines.
  33.  
  34. RREETTUURRNN VVAALLUUEESS
  35.      The result type and type parameter are the same as _x.  The result has
  36.      the value (|(x)(b**-e) |) (b**p) where _b, _e, and _p are defined in the
  37.      real number model.
  38.  
  39. EEXXAAMMPPLLEESS
  40.      The following code was run on several systems:
  41.  
  42.           REAL(KIND=4) r4
  43.           REAL(KIND=8) r8
  44.           REAL(KIND=16) r16
  45.           REAL rd
  46.           r4=-3.0_4
  47.           r8=-3.0_8
  48.           r16=-3.0_16
  49.           rd=-3.0
  50.           PRINT *,'RRSPACING r4=',RRSPACING(r4)
  51.           PRINT *,'RRSPACING r8=',RRSPACING(r8)
  52.           PRINT *,'RRSPACING r16=',RRSPACING(r16)
  53.           PRINT *,'RRSPACING rd=',RRSPACING(rd)
  54.           END
  55.  
  56.      On IRIX systems, the results were as follows:
  57.  
  58.           RRSPACING r4= 12582912.
  59.           RRSPACING r8= 6755399441055744.
  60.           RRSPACING r16= 1.216944576219100225436835007716096E+32
  61.           RRSPACING rd= 12582912.
  62.  
  63.      On a UNICOS/mk system, the results were as follows:
  64.  
  65.           RRSPACING r4= 12582912.
  66.           RRSPACING r8= 6755399441055744.
  67.           RRSPACING rd= 6755399441055744.
  68.  
  69.      On a CRAY T90 system that supports IEEE floating-point arithmetic, the
  70.      results were as follows:
  71.  
  72.           RRSPACING r4= 12582912.
  73.           RRSPACING r8= 6755399441055744.
  74.           RRSPACING r16= 7.788445287802241442795744493830144E+33
  75.           RRSPACING rd= 6755399441055744.
  76.  
  77. SSEEEE AALLSSOO
  78.      MMOODDEELLSS(3I)
  79.  
  80.      _I_n_t_r_i_n_s_i_c _P_r_o_c_e_d_u_r_e_s _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l for the printed version of this
  81.      man page.
  82.